home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / intuition / Requester.st < prev    next >
Encoding:
Text File  |  2000-05-03  |  3.8 KB  |  120 lines
  1. "--------------------------------------------------------------------"
  2. " Requester Class implements control of Amiga Requesters, except for "
  3. " displaying them, which is done inside the Window class.            "
  4. "--------------------------------------------------------------------"
  5.  
  6. Class Requester :Glyph
  7. ! 
  8.   leftEdge  topEdge width height relLeft relTop flags backFill reqText
  9.   reqGadget reqBorder imageBMap requesterName
  10. !
  11. [
  12.    "reqValuesArray has the following fields:
  13.        LeftEdge, TopEdge, Width, Height, RelLeft, RelTop,
  14.        ReqGadget, ReqBorder, ReqText, Flags BackFill, ImageBMap:
  15.    "
  16.    initialize: reqValuesArray
  17.       <primitive 185 1                            requesterName>.
  18.       <primitive 185 3 0  (reqValuesArray at: 1)  requesterName>.
  19.       <primitive 185 3 1  (reqValuesArray at: 2)  requesterName>.
  20.       <primitive 185 3 2  (reqValuesArray at: 3)  requesterName>.
  21.       <primitive 185 3 3  (reqValuesArray at: 4)  requesterName>.
  22.       <primitive 185 3 4  (reqValuesArray at: 5)  requesterName>.
  23.       <primitive 185 3 5  (reqValuesArray at: 6)  requesterName>.
  24.       <primitive 185 3 9  (reqValuesArray at: 7)  requesterName>.
  25.       <primitive 185 3 10 (reqValuesArray at: 8)  requesterName>.
  26.       <primitive 185 3 8  (reqValuesArray at: 9)  requesterName>.
  27.       <primitive 185 3 6  (reqValuesArray at: 10) requesterName>.
  28.       <primitive 185 3 7  (reqValuesArray at: 11) requesterName>.
  29.       <primitive 185 3 11 (reqValuesArray at: 12) requesterName>
  30. |
  31.    getStartPoint
  32.       leftEdge <- <primitive 185 2 0 requesterName>.
  33.       topEdge  <- <primitive 185 2 1 requesterName>.
  34.       ^ leftEdge @ topEdge
  35. |
  36.    setStartPoint: newPoint ! x y !
  37.       x <- newPoint x.
  38.       y <- newPoint y.
  39.       <primitive 185 3 0 x requesterName>.
  40.       <primitive 185 3 1 y requesterName>.
  41.       leftEdge <- x.
  42.       topEdge  <- y
  43. |
  44.    getReqSize
  45.       width  <- <primitive 185 2 2 requesterName>.
  46.       height <- <primitive 185 2 3 requesterName>.
  47.       ^ width @ height
  48. |
  49.    setReqSize: sizePoint ! w h !
  50.       w <- sizePoint x.
  51.       h <- sizePoint y.
  52.       <primitive 185 3 2 w requesterName>.
  53.       <primitive 185 3 3 h requesterName>.
  54.       width  <- w.
  55.       height <- h
  56. |
  57.    getRelativePoint
  58.       relLeft <- <primitive 185 2 4 requesterName>.
  59.       relTop  <- <primitive 185 2 5 requesterName>.
  60.       ^ relLeft @ relTop
  61. |
  62.    setRelativePoint: newRelPoint ! rx ry !
  63.       rx <- newRelPoint x.
  64.       ry <- newRelPoint y.
  65.       <primitive 185 3 4 rx requesterName>.
  66.       <primitive 185 3 5 ry requesterName>.
  67.       relLeft <- rx.
  68.       relTop  <- ry
  69. |
  70.    getFlags
  71.       ^ flags <- <primitive 185 2 6 requesterName>
  72. |
  73.    setFlags: newFlags
  74.       <primitive 185 3 6 newFlags requesterName>.
  75.       flags <- newFlags
  76. |
  77.    getBackFill
  78.       ^ backFill <- <primitive 185 2 7 requesterName>
  79. |
  80.    setBackFill: newBackFill
  81.       <primitive 185 3 7 newBackFill requesterName>.
  82.       backFill <- newBackFill
  83. |
  84.    getReqText
  85.       ^ reqText <- <primitive 185 2 8 requesterName>
  86. |
  87.    setReqText: newReqText
  88.       <primitive 185 3 8 newReqText requesterName>.
  89.       reqText <- newReqText
  90. |
  91.    getReqBorder
  92.       ^ reqBorder <- <primitive 185 2 10 requesterName>
  93. |
  94.    setReqBorder: newReqBorder
  95.       <primitive 185 3 10 newReqBorder requesterName>.
  96.       reqBorder <- newReqBorder
  97. |
  98.    getReqGadget
  99.       ^ reqGadget <- <primitive 185 2 9 requesterName>
  100. |
  101.    setReqGadget: newReqGadget
  102.       <primitive 185 3 9 newReqGadget requesterName>.
  103.       reqGadget <- newReqGadget
  104. |
  105.    getReqBitMap
  106.       ^ imageBMap <- <primitive 185 2 11 requesterName>
  107. |
  108.    setReqBitMap: newReqBMap
  109.       <primitive 185 3 11 newReqBMap requesterName>.
  110.       imageBMap <- newReqBMap
  111. |
  112.    remove
  113.       <primitive 185 0 requesterName>
  114. |
  115.    new: newRequesterName
  116.       <primitive 185 1 newRequesterName>.
  117.       requesterName <- newRequesterName.
  118.       ^ self
  119. ]
  120.